home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / CIRCMOVE.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  440b  |  19 lines
  1. ' CIRCMOVE.BAS
  2. ' This program "moves" a circle across the screen.
  3.  
  4. CONST DELAY% = 50
  5.  
  6. SCREEN 1               ' change this value as needed for your adapter
  7.  
  8. CIRCLE (20, 100), 20
  9.  
  10. FOR i% = 21 TO 299     ' assumes 320 x 200 resolution
  11.     CIRCLE (i% - 1, 100), 20, 0     ' erase previous circle
  12.     CIRCLE (i%, 100), 20            ' draw new circle
  13.    
  14.     FOR j% = 1 TO DELAY%            ' delay loop
  15.     NEXT j%
  16.  
  17. NEXT i%
  18.  
  19.